home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / funfont2.3 / install < prev    next >
Text File  |  1981-05-07  |  15KB  |  528 lines
  1. ;***********************************************************************
  2. ; FunFont installation script (v2.0) written by Andrew J Bailey (Carbon)
  3. ; © CREATIVE DESIGN 1997
  4. ;***********************************************************************
  5.  
  6. ;PROCEDURES
  7. ;**********
  8.  
  9. (procedure greet (
  10.  (complete 0)
  11.  (set #speak "welcome to the fun font instalation.")
  12.  (talk)
  13.  (message "\n\n\nWelcome to the FunFont installation\n\nI will now install the necessary files.\n\n\nNO SYSTEM FILES WILL BE DELETED BY THIS INSTALLATION")
  14. ))
  15.  
  16. ;***********************************************************************
  17.  
  18. (procedure amirc (
  19.  (set #speak "Select the directory where am eye are see, is located.")
  20.  (talk)
  21.  (set @default-dest
  22.  (askdir
  23.   (prompt "\nSelect the directory where \"AmIRC\" is located...\n")
  24.   (help "\n Arexx scripts have to be copied to the \"Rexx\" sub-directory\n"
  25.         " of your \"AmIRC:\" directory...\n\n"
  26.         " Example choice  \"DH0:Comms/AmIRC/\"\n\n"
  27.         " The default directory is  \"AmIRC:\"")
  28.   (default "Amirc:")
  29.  )
  30. )
  31.          
  32.  
  33.  (copyfiles
  34.  (source "bin/amirc")
  35.  (dest @default-dest)
  36.  (all)
  37. )
  38.  (complete 10)
  39.  
  40. ))
  41.  
  42. ;***********************************************************************
  43.  
  44. (procedure helpdir (
  45.  (set #speak "Select the directory, to install the fun font guide and associated help files.")
  46.  (talk)
  47.  (set @default-dest
  48.  (askdir
  49.   (prompt "\nSelect the directory to install the\n"
  50.           " FunFont guide and associated HELP files...\n")
  51.   (help "\n The FunFont guide and its support files will be copied\n"
  52.         " to the selected directory.\n\n"
  53.         " A drawer called  \"FunFont\"  will be created.\n\n"
  54.         " The default directory is  \"Help:\"")
  55.   (default "Help:")
  56.  )
  57. )
  58.  
  59.  (makedir (tackon @default-dest "FunFont"))
  60.  
  61.  (copyfiles
  62.  (source "BIN/Misc/DRW")
  63.  (dest @default-dest)
  64.  (newname "FunFont.info")
  65. )
  66.  (complete 50)
  67.  
  68. ))
  69.  
  70. ;***********************************************************************
  71.  
  72. (procedure guide (
  73.  (copyfiles
  74.  (source "GUIDES")
  75.  (dest (tackon @default-dest "FunFont"))
  76.  (newname "GUIDE")
  77. )
  78.  
  79.  (copyfiles
  80.  (source "bin/misc/guide")
  81.  (dest (tackon @default-dest "FunFont"))
  82.  (newname "GUIDE.info")
  83. )
  84.  
  85.  (copyfiles
  86.  (source "Images")
  87.  (dest (tackon @default-dest "FunFont/Images"))
  88.  (all)
  89. )
  90.  
  91.  (copyfiles
  92.  (source "bin/misc/ADVUSR")
  93.  (dest (tackon @default-dest "FunFont/Images"))
  94. )
  95.  (complete 60)
  96.  
  97. ))
  98.  
  99. ;***********************************************************************
  100.  
  101. (procedure preview (
  102.  (set #speak "you are now required to select a font, to install.")
  103.  (talk)
  104.  (message "\nYou are now required to select a font to install.\n\n"
  105.           "To help you choose an appropriate font,\n"
  106.           "a preview follows...\n\n"
  107.           "Fonts are identified by their index number 1-12\n\n"
  108.           "Press PROCEED to continue.")
  109.  
  110.  (if (> @user-level 0)
  111.  (run "run >NIL: <NIL: sys:utilities/multiview images/FontPreview.pic")
  112. )
  113.  (complete 20)
  114.  
  115. ))
  116.  
  117. ;***********************************************************************
  118.  
  119. (procedure font (
  120.  (set #speak "Please note the index numbers, displayed in wite.")
  121.  (talk)
  122.  (set @choice
  123.  (askchoice
  124.  (prompt "\nSelect the font you wish to install...\n")
  125.  (choices ("01  11P/9W/H")
  126.           ("02  11P/7W/H")
  127.           ("03  11P/7W/M")
  128.           ("04   9P/7W/M")
  129.           ("05   9P/6W/M")
  130.           ("06   9P/5W/M")
  131.           ("07   9P/5W/L")
  132.           ("08   9P/4W/L")
  133.           ("09   9P/3W/L")
  134.           ("10   7P/7W/M")
  135.           ("11   7P/5W/L")
  136.           ("12   7P/3W/L")
  137. )
  138.  (default 3)
  139.  (help "\n The first number is the point size of the font.\n"
  140.        " The second number is the width of a standard letter.\n"
  141.        " The end letter refers to the weight of the font.\n\n"
  142.        " The default choice is 04 which is a nine point font.")
  143. )
  144. )
  145.  
  146.  (run "delete fonts:funfont#? all >NIL:")
  147.  (rename "envarc:mui/amirc.1.prefs" "envarc:mui/AMIRC.1.prefs.bak")
  148.  
  149.  (if (= @choice 0) (run "lha x -X -q bin/fonts/01.fnt fonts:"))
  150.  (if (= @choice 0) (copyfiles (source "bin/envarc/amirc11") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  151.  (if (= @choice 1) (run "lha x -X -q bin/fonts/02.fnt fonts:"))
  152.  (if (= @choice 1) (copyfiles (source "bin/envarc/amirc11") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  153.  (if (= @choice 2) (run "lha x -X -q bin/fonts/03.fnt fonts:"))
  154.  (if (= @choice 2) (copyfiles (source "bin/envarc/amirc11") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  155.  (if (= @choice 3) (run "lha x -X -q bin/fonts/04.fnt fonts:"))
  156.  (if (= @choice 3) (copyfiles (source "bin/envarc/amirc9") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  157.  (if (= @choice 4) (run "lha x -X -q bin/fonts/05.fnt fonts:"))
  158.  (if (= @choice 4) (copyfiles (source "bin/envarc/amirc9") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  159.  (if (= @choice 5) (run "lha x -X -q bin/fonts/06.fnt fonts:"))
  160.  (if (= @choice 5) (copyfiles (source "bin/envarc/amirc9") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  161.  (if (= @choice 6) (run "lha x -X -q bin/fonts/07.fnt fonts:"))
  162.  (if (= @choice 6) (copyfiles (source "bin/envarc/amirc9") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  163.  (if (= @choice 7) (run "lha x -X -q bin/fonts/08.fnt fonts:"))
  164.  (if (= @choice 7) (copyfiles (source "bin/envarc/amirc9") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  165.  (if (= @choice 8) (run "lha x -X -q bin/fonts/09.fnt fonts:"))
  166.  (if (= @choice 8) (copyfiles (source "bin/envarc/amirc9") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  167.  (if (= @choice 9) (run "lha x -X -q bin/fonts/10.fnt fonts:"))
  168.  (if (= @choice 9) (copyfiles (source "bin/envarc/amirc7") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  169.  (if (= @choice 10) (run "lha x -X -q bin/fonts/11.fnt fonts:"))
  170.  (if (= @choice 10) (copyfiles (source "bin/envarc/amirc7") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  171.  (if (= @choice 11) (run "lha x -X -q bin/fonts/12.fnt fonts:"))
  172.  (if (= @choice 11) (copyfiles (source "bin/envarc/amirc7") (dest "envarc:mui/") (newname "AMIRC.1.prefs")))
  173.  
  174.  
  175.  (copyfiles
  176.  (source "bin/fonts")
  177.  (dest "fonts:")
  178.  (pattern "FFGuide#?")
  179. )
  180.  (complete 30)
  181.  
  182. ))
  183.  
  184. ;***********************************************************************
  185.  
  186. (procedure keymap (
  187.  (set #speak "do you want to install, an enhanced key map.")
  188.  (talk)
  189.  (set @keymap
  190.  (askbool
  191.  (prompt "\nDo you want to install an enhanced keymap ?\n\n"
  192.          "This allows you to use keyboard shortcuts\n"
  193.          "for frequently used graphics.\n\n"
  194.          "For more information, select HELP.")
  195.  (help "\n Selecting YES will prompt you to choose a keymap.\n"
  196.        " These keymaps have been designed to enhance FunFont\n"
  197.        " usage by remapping frequently used graphics to appropriate\n"
  198.        " keystrokes...\n\n"
  199.        " For example \"Alt-y\" will print a \"Yes!\" graphic.\n\n"
  200.        " These keymaps are totally invisible during normal use.\n\n"
  201.        " Selecting NO will skip this part of the installation.")
  202.  (default "0")
  203. )
  204. )
  205.  
  206.  
  207.  (if (= @keymap 1)
  208.  
  209.  
  210.  (set @map
  211.  (askchoice
  212.  (prompt "\nSelect the keymap to install...\n")
  213.  (choices ("CDN")
  214.           ("CH1")
  215.           ("CH2")
  216.           ("D")
  217.           ("DK")
  218.           ("E")
  219.           ("F")
  220.           ("GB")
  221.           ("I")
  222.           ("N")
  223.           ("S")
  224.           ("USA")
  225.  (help "\n Select the keymap you normally use.\n\n"
  226.        " If you are not sure which keymap is currently installed,\n"
  227.        " you can check by using your \"Input\" preference program\n"
  228.        " which is located in your \"SYS:Prefs/\" drawer.\n\n"
  229.        " Default keymap is GB.")
  230.  (default "7")
  231.  
  232. )
  233. )
  234. )
  235.  (set @map "14")
  236. )
  237.  
  238.  (if (= @map 0) (copyfiles (source "bin/keymaps/cdn") (dest "keymaps:") (newname "FunFont")) (""))
  239.  (if (= @map 1) (copyfiles (source "bin/keymaps/ch1") (dest "keymaps:") (newname "FunFont")) (""))
  240.  (if (= @map 2) (copyfiles (source "bin/keymaps/ch2") (dest "keymaps:") (newname "FunFont")) (""))
  241.  (if (= @map 3) (copyfiles (source "bin/keymaps/d") (dest "keymaps:") (newname "FunFont")) (""))
  242.  (if (= @map 4) (copyfiles (source "bin/keymaps/dk") (dest "keymaps:") (newname "FunFont")) (""))
  243.  (if (= @map 5) (copyfiles (source "bin/keymaps/e") (dest "keymaps:") (newname "FunFont")) (""))
  244.  (if (= @map 6) (copyfiles (source "bin/keymaps/f") (dest "keymaps:") (newname "FunFont")) (""))
  245.  (if (= @map 7) (copyfiles (source "bin/keymaps/gb") (dest "keymaps:") (newname "FunFont")) (""))
  246.  (if (= @map 8) (copyfiles (source "bin/keymaps/i") (dest "keymaps:") (newname "FunFont")) (""))
  247.  (if (= @map 9) (copyfiles (source "bin/keymaps/n") (dest "keymaps:") (newname "FunFont")) (""))
  248.  (if (= @map 10) (copyfiles (source "bin/keymaps/s") (dest "keymaps:") (newname "FunFont")) (""))
  249.  (if (= @map 11) (copyfiles (source "bin/keymaps/usa") (dest "keymaps:") (newname "FunFont")) (""))
  250.  
  251.  (if (= @map 14) ("")
  252.  (copyfiles (source "bin/misc/key") (dest "keymaps:") (newname "FunFont.info")))
  253.  (if (= @map 14) ("")
  254.  (rename "envarc:sys/input.prefs" "envarc:sys/Input.prefs.bak"))
  255.  (if (= @map 14) ("")
  256.  (copyfiles (source "bin/envarc/input") (dest "envarc:sys/") (newname "Input.prefs")))
  257. ))
  258.  
  259. ;*************************************************************************
  260.  
  261. (procedure without (
  262.  (complete 40)
  263.  (set #speak "Select the support files, to be installed.")
  264.  (talk)
  265.  (set support
  266.  (askoptions
  267.  (prompt "\nSelect the support files to be installed...\n")
  268.  (help "\n GUIDE This is the main FunFont guide (Multiview)\n"
  269.        "\n CODES This is a reference sheet fot the codes\n"
  270.        "    used for printing realtime IRC graphics.\n"
  271.        "\n FANSI This is a reference sheet for the keystrokes\n"
  272.        "    used for printing extended ansi characters.")
  273.  (choices (" FunFont GUIDE")
  274.           (" Graphic CODES reference sheet")
  275.           (" FANSI keystroke reference sheet"))
  276.  (default 0)
  277. )
  278. )
  279. ))
  280.  
  281. ;*************************************************************************
  282.  
  283.  (procedure with (
  284.  (complete 40)
  285.  (set #speak "Select the support files, to be installed.")
  286.  (talk)
  287.  (set support
  288.  (askoptions
  289.  (prompt "\nSelect the support files to be installed...\n")
  290.  (help "\n GUIDE This is the main FunFont guide (Multiview)\n"
  291.        "\n CODES This is a reference sheet for the codes\n"
  292.        "    used for printing realtime IRC graphics.\n"
  293.        "\n FANSI This is a reference sheet for the keystrokes\n"
  294.        "    used for printing extended ansi characters.\n"
  295.        "\n KEYS  This is the keyboard shortcut reference sheet\n"
  296.        "    used for printing frequent IRC graphics.")
  297.  (choices (" FunFont GUIDE")
  298.           (" Graphic CODES  reference sheet")
  299.           (" FANSI  keystroke reference sheet")
  300.           (" KEYS   keyboard shortcut reference sheet"))
  301. )
  302. )
  303. ))
  304.  
  305. ;**************************************************************************
  306.  
  307. (procedure check (
  308.  
  309.  (if (= support 0)
  310.  (end)
  311. )
  312.  (helpdir)
  313.  
  314.  (if (BITAND support 1)
  315.  (guide)
  316. )
  317.  (if (BITAND support 2)
  318.  (codes)
  319. )
  320.  (if (BITAND support 4)
  321.  (fansi)
  322. )
  323.  (if (BITAND support 8)
  324.  (keys)
  325. )
  326. ))
  327.  
  328. ;**************************************************************************
  329.  
  330. (procedure codes (
  331.  (copyfiles
  332.  (source "bin/misc/CODES")
  333.  (dest (tackon @default-dest "FunFont"))
  334.  (infos)
  335. )
  336.  (complete 70)
  337.  
  338. ))
  339.  
  340. ;**************************************************************************
  341.  
  342. (procedure fansi (
  343.  (copyfiles
  344.  (source "bin/misc/FANSI")
  345.  (dest (tackon @default-dest "FunFont"))
  346.  (infos)
  347. )
  348.  (complete 80)
  349.  
  350. ))
  351.  
  352. ;**************************************************************************
  353.  
  354. (procedure keys (
  355.  (copyfiles
  356.  (source "bin/misc/KEYS")
  357.  (dest (tackon @default-dest "FunFont"))
  358.  (infos)
  359. )
  360.  (complete 90)
  361.  
  362. ))
  363.  
  364. ;**************************************************************************
  365.  
  366. (procedure end (
  367.  (complete 100)
  368.  (set #speak "-w1 Thankyoo for installing, fun font.")
  369.  (talk)
  370.  (exit "\n\nFunFont has been successfuly installed."
  371.        "\n\nPLEASE REBOOT SYSTEM"
  372.  (quiet))
  373. ))
  374.  
  375. ;**************************************************************************
  376.  
  377. (procedure endmsg (
  378.  (complete 100)
  379.  (set #speak "-w1 Thankyoo for installing, fun font.")
  380.  (talk)
  381.  (message "\n\nFunFont has been successfuly installed."
  382.           "\n\nPLEASE REBOOT SYSTEM")
  383. ))
  384.  
  385. ;**************************************************************************
  386.  
  387. (procedure talk (
  388. (if (= @user-level 0) ("")
  389.  (if (exists "C:talk")
  390.   (run "run >NIL: <NIL: talk" #speak)
  391. )
  392. )
  393. ))
  394.  
  395. ;**************************************************************************
  396.  
  397. (procedure extras (
  398.  (set #speak "select the extra files, to install.")
  399.  (talk) 
  400.  (set extra
  401.  (askoptions
  402.  (prompt "\nSelect the EXTRA files to install...\n")
  403.  (choices (" Font Installer")
  404.           (" Fansi Maker"))
  405.  (help "\n Font Installer: Enables you to install any of the\n"
  406.        " fonts at a later date so that you do not have to\n"
  407.        " retain the original archive.\n\n"
  408.        " The fonts are stored in a compressed format (55K).\n\n"
  409.        " Fansi Maker: This useful script and editor will make\n"
  410.        " the creation of Fansi graphics easier.")
  411. )
  412. )
  413.  
  414.  (if (= extra 0)
  415.  (endmsg)
  416. )
  417.  
  418.  (if (BITAND extra 1)
  419.  (FontInstall)
  420. )
  421.  
  422.  (if (BITAND extra 2)
  423.  (FansiMaker)
  424. )
  425.  
  426. ))
  427.  
  428. ;**************************************************************************
  429.  
  430. (procedure FontInstall (
  431.  
  432.  (copyfiles
  433.  (source "bin/misc/FONTINSTALL")
  434.  (dest (tackon @default-dest "FunFont"))
  435.  (infos)
  436. )
  437.  (copyfiles
  438.  (source "bin/fonts/")
  439.  (dest (tackon @default-dest "FunFont/Fonts"))
  440.  (pattern "#?.fnt")
  441. )
  442.  (copyfiles
  443.  (source "images/FontPreview.pic")
  444.  (dest (tackon @default-dest "FunFont/Images"))
  445. )
  446.  (copyfiles
  447.  (source "bin/envarc/")
  448.  (dest (tackon @default-dest "FunFont/Fonts"))
  449.  (pattern "AMIRC#?")
  450. )
  451. ))
  452.  
  453. ;**************************************************************************
  454.  
  455. (procedure FansiMaker (
  456.  (copyfiles
  457.  (source "bin/misc/FANSIMAKER")
  458.  (dest (tackon @default-dest "FunFont"))
  459.  (infos)
  460. )
  461.  (copyfiles
  462.  (source "bin/misc/NEW.fansi")
  463.  (dest (tackon @default-dest "FunFont"))
  464. )
  465.  (copyfiles
  466.  (source "bin/misc/GEditor")
  467.  (dest "c:")
  468. )
  469.  (copyfiles
  470.  (source "bin/envarc/GEDITOR")
  471.  (dest "ENVarc:MUI")
  472.  (newname "GEDITOR.1.prefs")
  473. )
  474.  (copylib
  475.  (source "bin/misc/Textfield.gadget")
  476.  (dest "SYS:Classes/Gadgets")
  477. )
  478. ))
  479.  
  480. ;**************************************************************************
  481.  
  482. (procedure start (
  483.  (copylib
  484.  (source "bin/misc/Talk")
  485.  (dest "c:")
  486.  (nogauge)
  487. )
  488.  (copylib
  489.  (source "bin/misc/Narrator.device")
  490.  (dest "devs:")
  491.  (nogauge)
  492. )
  493.  (copylib
  494.  (source "bin/misc/Translator.library")
  495.  (dest "libs:")
  496.  (nogauge)
  497. )
  498. ))
  499.  
  500. ;**************************************************************************
  501.  
  502. ;SEQUENCE
  503. ;********
  504.  
  505. (working "\nPreparing system...\n\nPLEASE WAIT")
  506.  
  507. (start)
  508.  
  509. (welcome "\nWelcome to the FunFont installation utility\nPlease indicate how the installation should proceed (based upon your knowledge of the Amiga computer.)\n")
  510.  
  511. (greet)
  512.  
  513. (amirc)
  514.  
  515. (preview)
  516.  
  517. (font)
  518.  
  519. (keymap)
  520.  
  521. (if (= @map 14) (without) (with) )
  522.  
  523. (check)
  524.  
  525. (extras)
  526.  
  527. (endmsg)
  528.